home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (Latin America) Volume 1 #6 / CD-ROM Today 6 Latam.iso / referenc / picasso / data / dico.dxr / 00004.ls < prev    next >
Encoding:
Text File  |  1996-12-03  |  2.0 KB  |  68 lines
  1. on exitFrame
  2.   global g_detect_mot, g_dico_current_letter, g_dico_cast_def, g_dico_sprite_def, g_dico_current_mot, g_dico_detect_mot, g_dico_carte_liste
  3.   set val to g_dico_detect_mot + 1
  4.   if val <= 9 then
  5.     set ref to numToChar(g_dico_current_letter + 65) & "0" & string(val)
  6.   else
  7.     set ref to numToChar(g_dico_current_letter + 65) & string(val)
  8.   end if
  9.   set cas to "D"
  10.   repeat with count = 1 to count(g_dico_carte_liste)
  11.     if getAt(getAt(g_dico_carte_liste, count), 1) = ref then
  12.       set cas to getAt(getAt(g_dico_carte_liste, count), 2)
  13.       if cas = "A" then
  14.         set ax to getAt(getAt(g_dico_carte_liste, count), 3)
  15.         set ay to getAt(getAt(g_dico_carte_liste, count), 4) + 27
  16.       end if
  17.     end if
  18.   end repeat
  19.   puppetSprite(46, 0)
  20.   updateStage()
  21.   if cas = "A" then
  22.     set num to the number of member (ref & "AR.PCT")
  23.     set the regPoint of cast num to point(0, 0)
  24.     puppetSprite(46, 1)
  25.     set the castNum of sprite 46 to num
  26.     set the locH of sprite 46 to ax
  27.     set the locV of sprite 46 to ay
  28.   end if
  29.   set cx to 0
  30.   set cy to 0
  31.   set setpoint to 0
  32.   if cas = "D" then
  33.     set num to the number of member (ref & "D.RTF")
  34.     set cx to 20
  35.     set cy to 20
  36.   else
  37.     if cas = "E" then
  38.       set num to the number of member "SP.PCT"
  39.       set setpoint to 1
  40.     else
  41.       if cas = "F" then
  42.         set num to the number of member "FR.PCT"
  43.         set setpoint to 1
  44.       else
  45.         if cas = "P" then
  46.           set num to the number of member "PA.PCT"
  47.           set setpoint to 1
  48.         else
  49.           if cas = "A" then
  50.             set num to the number of member "AR.PCT"
  51.             set setpoint to 1
  52.           end if
  53.         end if
  54.       end if
  55.     end if
  56.   end if
  57.   set g_dico_cast_def to num
  58.   if setpoint = 1 then
  59.     set the regPoint of cast g_dico_cast_def to point(0, 0)
  60.   end if
  61.   puppetSprite(g_dico_sprite_def, 1)
  62.   set the castNum of sprite g_dico_sprite_def to g_dico_cast_def
  63.   set the locH of sprite g_dico_sprite_def to cx
  64.   set the locV of sprite g_dico_sprite_def to cy
  65.   set g_dico_current_mot to g_dico_detect_mot
  66.   go(1)
  67. end
  68.